<%@ LANGUAGE="VBSCRIPT" %>

<%
    Option Explicit
	Dim objRequest, objXMLDoc, objXmlNode
	Dim strRet, strError, strNome
	Set objRequest = Server.CreateObject("MSXML2.XMLHTTP")
	With objRequest
    ' Consulta el metodo ObtenerFechaHora de WebService.asmx
	.open "GET", "http://localhost:24380/UI/WebService.asmx/ObtenerFechaHora", False
	.setRequestHeader "Content-Type", "text/xml"
	.setRequestHeader "SOAPAction", "http://localhost:24380/UI/WebService.asmx/ObtenerFechaHora"
	.send
	End With
	Set objXMLDoc = Server.CreateObject("MSXML2.DOMDocument")
	objXmlDoc.async = false
	Response.ContentType = "text"
    Dim myString
    myString = Replace(objRequest.ResponseText, "<?xml version=""1.0"" encoding=""utf-8""?>" + vbCrLf + "<string xmlns=""http://tempuri.org/"">", "")
    myString = Replace(myString, "</string>", "<br />")
    Response.Write(myString)
%>